home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / deskpack change (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  29 lines
  1. 1 printchr$(14)"[147]"tab(13)"[196]eskpack [195]hange"tab(53)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  2. 2 poke53280,6:poke53281,6:printtab(18)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
  3. 3 printtab(160)"[194]itte legen [211]ie die [199][197][207][211] 2.0"
  4. 4 print"[193]pplikationsdiskette in das [204]aufwerk"tab(80)"und druecken eine [212]aste"
  5. 5 wait203,64,64:open1,8,15,"i":open2,8,2,"#":print#1,"u1"2;0;18;0
  6. 6 print#1,"b-p";2;190:get#2,a$:a=asc(a$+chr$(0)):print#1,"b-p";2;191
  7. 7 get#2,b$:b=asc(b$+chr$(0)):close2
  8. 8 poke53280,0:poke53281,0:print"[145][145][145][196]eskpackdiskette in das [204]aufwerk     "
  9. 9 wait203,64,64:open2,8,2,"#":print#1,"u1:"2;0;18;0
  10. 10 print#1,"m-w"chr$(190)chr$(05)chr$(1)chr$(a):s=10:u=88:gosub25
  11. 11 print#1,"m-w"chr$(191)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;18;0:close2
  12. 12 poke53280,8:poke53281,8:print"[145][211]ystemdiskette in das [204]aufwerk  "
  13. 13 wait203,64,64:open2,8,2,"#":print#1,"u1"2;0;20;5
  14. 14 print#1,"b-p";2;197:get#2,a$:a=asc(a$+chr$(0))
  15. 15 print#1,"b-p";2;198:get#2,b$:b=asc(b$+chr$(0)):close2
  16. 16 poke53280,9:poke53281,9:print"[145][196]eskpackdiskette in das [204]aufwerk"
  17. 17 wait203,64,64:open2,8,2,"#":print#1,"u1:"2;0;1;16
  18. 18 print#1,"m-w"chr$(65)chr$(05)chr$(1)chr$(a):s=5:u=99:gosub25
  19. 19 print#1,"m-w"chr$(66)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;1;16
  20. 20 print#1,"u1:"2;0;3;3:print#1,"m-w"chr$(86)chr$(05)chr$(1)chr$(a)
  21. 21 print#1,"m-w"chr$(87)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;3;3
  22. 22 print#1,"u1:"2;0;8;5:print#1,"m-w"chr$(252)chr$(05)chr$(1)chr$(a)
  23. 23 print#1,"m-w"chr$(253)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;8;5
  24. 24 close2:close1:print"[196]eskpack an [211]ystem angepasst":end
  25. 25 print#1,"b-p";2;u:get#2,t$:t=asc(t$+chr$(0)):ift<>sthen27
  26. 26 return
  27. 27 print"[147][198]alsche [196]iskette, breche [198]organg ab,"tab(80)"um [211]chaden zu vermeiden!"
  28. 28 close2:close1:end
  29.